home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / STEP215.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  3KB  |  124 lines
  1. ; This file was created using MAKESTEP from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. Page1:
  8.   Clear
  9.   Message "Menu of Bulletin Boards for the 215 area."
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Locate 22,15
  12.   Message "          "
  13.   Locate 0,45
  14.   Message "Mode:"
  15.   Locate 0,51
  16.   Find S7 "H"
  17.   IF Found
  18.      Message "Hayes"
  19.   ELSE
  20.      Message "Racal"
  21.   ENDIF
  22.   Locate 0,60
  23.   Message "Redial:"
  24.   Locate 0,68
  25.   Find S8 "A"
  26.   IF Found
  27.      Message "Active"
  28.   ELSE
  29.      Message "Inactive"
  30.   ENDIF
  31.   Locate 2,0
  32.   Message " 1 --> PACS dBBS (635-5227)"
  33.   Message " 2 --> SoftShop (663-1487)"
  34.   Message " 3 --> The Temple (787-6843)"
  35.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  36.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  37.   Locate 22,0
  38.   Message "Your Choice -->"
  39.   Goto Retype1
  40. ;
  41. Retype1:
  42.   Locate 22,15
  43.   Get S3
  44.   Switch S3
  45.       Case "E"
  46.          EndSwitch
  47.          Execute "Make.cmd"
  48.       EndCase
  49.       Case "R"
  50.          EndSwitch
  51.          Goto Activate
  52.       EndCase
  53.       Case "S"
  54.          EndSwitch
  55.          Goto Switch
  56.       EndCase
  57.       Case "M"
  58.          Clear
  59.          Message "Manual dial for area "
  60.          Locate 0,21
  61.          Message S2
  62.          Message "What number do you wish to dial --> "
  63.          Locate 1,36
  64.          Get S6
  65.          Assign S5 "Manual dialing."
  66.          Execute "Dial"
  67.       EndCase
  68.       Case "D"
  69.          Execute "Discnect"
  70.       EndCase
  71.       Case "1"
  72.          Assign S5 "Dialing PACS dBBS at 635-5227."
  73.          Assign S6 "6355227"
  74.          Execute "Dial"
  75.       EndCase
  76.       Case "2"
  77.          Assign S5 "Dialing SoftShop at 663-1487."
  78.          Assign S6 "6631487"
  79.          Execute "Dial"
  80.       EndCase
  81.       Case "3"
  82.          Assign S5 "Dialing The Temple at 787-6843."
  83.          Assign S6 "7876843"
  84.          Execute "Dial"
  85.       EndCase
  86.       Default
  87.          Message " "
  88.          Message "Invalid choice, please retype"
  89.          Locate 22,15
  90.          Message "          "
  91.          Goto Retype1
  92.       EndCase
  93.   EndSwitch
  94. ;
  95. Switch:
  96.   Find S7 "R"
  97.   IF Found
  98.      Tran "I!"
  99.      Pause 2
  100.      Tran "ATZ!"
  101.      Assign S7 "H"
  102.      Rflush
  103.   ELSE
  104.      Tran "ATZ I!"
  105.      Pause 2
  106.      Tran "!"
  107.      Assign S7 "R"
  108.      Rflush
  109.   ENDIF
  110.   Pause 3
  111.   Rflush
  112.   Goto Page1
  113. ;
  114. Activate:
  115.   Find S8 "A"
  116.   IF Found
  117.      Assign S8 "I"
  118.   ELSE
  119.      Assign S8 "A"
  120.   ENDIF
  121.   Goto Page1
  122. ;
  123. Exit
  124.